`[<-.setupSNP` <-
function(x,i,j,value){
    out<-NextMethod("[<-")
    out }

